#07082012 drew
#generate my own numbers and lengths, using parallelized scripts.
#in the end, combine 'em all back.


FILE_LOCATION   =	"/ifs/scratch/c2b2/ip_lab/ddd2124"
POPULATION_FILE = "PopIndex.txt"


setwd(paste(FILE_LOCATION))




Len1<-read.table("Lengths1.txt", header=F)
Num1<-read.table("Numbers1.txt", header=F)


Len2<-read.table("Lengths2.txt", header=F)
Num2<-read.table("Numbers2.txt", header=F)

Len1 <- Len1 + Len2
Num1 <- Num1 + Num2


Len2<-read.table("Lengths3.txt", header=F)
Num2<-read.table("Numbers3.txt", header=F)

Len1 <- Len1 + Len2
Num1 <- Num1 + Num2


Len2<-read.table("Lengths4.txt", header=F)
Num2<-read.table("Numbers4.txt", header=F)

Len1 <- Len1 + Len2
Num1 <- Num1 + Num2

rm(Len2, Num2)


write.table(Len1,"DrewLengths.txt",row.names=F,col.names=F,quote=F)
write.table(Num1,"DrewNumbers.txt",row.names=F,col.names=F,quote=F)

